home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -readerstuff- / paul_bray / e-stuff / examples / faveragetest.e < prev    next >
Text File  |  1999-11-30  |  147b  |  9 lines
  1.  
  2. MODULE 'Pauls/faverage'
  3.  
  4. PROC main()
  5. DEF s[10]:STRING
  6. RealF(s,faverage([4.7,9.3,5.5]),8)
  7. WriteF('The Average Of 4.7, 9.3, 5.5 Is \s\n',s)
  8. ENDPROC
  9.